home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ MSO Options 1.xpl < prev    next >
Text File  |  2001-04-14  |  2KB  |  51 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Program Options\Microsoft Office\MS Office 97"
  5. "NAME"="Word 97 Settings"
  6. "VERSION"="1.09"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Enable quick (no delay) scrolling in Word 97"
  9. "DESCRIPTION 1"="Normally when you move through a Word 97 document using the scroll bar the view doesn't update until you release the mouse button. With this hack, the document location is updated as you move the scroll bar with the mouse.  Checking "Enable quick (no delay) scrolling in Word 97 allows Word to scroll more quickly without taking time to show the scrolling effect. This is useful as a time saving feature if you disable it."
  10. "DESCRIPTION 1"="Please note that you need to restart Office so the changes can take effect."
  11. "AUTHOR"="Xteq Systems"
  12. "CONTACTURL"="http://www.xteq.com"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All rights reserved."
  14. "COMMENT 1"="For questions, comments, or suggestions contact info@xteq.com or visit http://www.xteq.com/"
  15. "COMMENT 2"=" "
  16.  
  17.  
  18. 'Declaration of some constants
  19. sV1="HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Word\Options\LiveScrolling" 'STR: 1
  20.  
  21. sPCheck="HKCU\Software\Microsoft\Office\8.0\Word\"
  22. Sub Plugin_Initialize 
  23. if RegPathExists(sPCheck) then
  24.    i=RegReadValue(sV1)
  25.    if i=1 then SetUIElement 1,true
  26. else
  27.    Disable()
  28. end if
  29. END SUB
  30.  
  31. 'Called when the Plugin should validate the Data the user has entered
  32. SUB Plugin_CheckData(ElementIndex)
  33. END SUB
  34.  
  35. 'Called when the Plugin should apply the changes
  36. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  37.  b=GetUIElement(1)
  38.  if b=true then
  39.     s="1"
  40.  else
  41.     s="0"
  42.  end if
  43.  Call RegWriteValue(sV1,s,1)
  44.  
  45.  
  46. END SUB
  47.  
  48. 'Called when the Plugin is about to be removed from memory
  49. SUB Plugin_Terminate
  50. END SUB
  51.